home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / comm / bbs / Hydra11s.lha / HBBS / Source / Oberon / HBBSNode.mod < prev    next >
Text File  |  1996-07-06  |  5KB  |  101 lines
  1. MODULE HBBSNode;
  2.  
  3. IMPORT e:= Exec, R, s:= SYSTEM, bs:= BBSStructures;
  4.  
  5.  
  6. CONST LibraryName* = "HBBSNode.library";
  7.  
  8. VAR
  9.     HBBSNodeBase*: e.LibraryPtr;
  10.  
  11. PROCEDURE HBBSInitNode* {HBBSNodeBase, -1EH} (NodeNum{R.D0}: INTEGER): BOOLEAN;
  12. PROCEDURE HBBSCleanUpNode* {HBBSNodeBase, -24H};
  13. PROCEDURE HBBSInitDoor* {HBBSNodeBase, -2AH}
  14.         (NodeNum{R.D0}: INTEGER; name{R.A0}: e.STRPTR): BOOLEAN;
  15. PROCEDURE HBBSCleanUpDoor* {HBBSNodeBase, -30H};
  16. PROCEDURE ConWriteData* {HBBSNodeBase, -36H} (data{R.A0}: e.STRPTR; length{R.D0}: LONGINT);
  17. PROCEDURE ConWriteStr* {HBBSNodeBase, -3CH} (data{R.A0}: e.STRPTR);
  18. PROCEDURE AbortConRead* {HBBSNodeBase, -42H};
  19. PROCEDURE SendConReadData* {HBBSNodeBase, -48H};
  20. PROCEDURE ConReadData* {HBBSNodeBase, -4EH} (Length{R.D0}: LONGINT);
  21. PROCEDURE ConWaitData* {HBBSNodeBase, -54H};
  22. PROCEDURE AbortSerRead* {HBBSNodeBase, -5AH};
  23. PROCEDURE SendSerReadData* {HBBSNodeBase, -60H};
  24. PROCEDURE SerWaitData* {HBBSNodeBase, -66H};
  25. PROCEDURE SendSerReadBlock* {HBBSNodeBase, -6CH} (data{R.A0}: e.STRPTR; length{R.D0}: LONGINT);
  26. PROCEDURE WaitSerReadBlock* {HBBSNodeBase, -72H} (data{R.A0}: e.STRPTR; length{R.D0}: LONGINT);
  27. PROCEDURE SerQueryData* {HBBSNodeBase, -78H} (): LONGINT;
  28. PROCEDURE CarrierLost* {HBBSNodeBase, -7EH} (): e.LONGBOOL;
  29. PROCEDURE SerWriteDataWithTimeout* {HBBSNodeBase, -84H}
  30.         (data{R.A0}: e.STRPTR;
  31.          length{R.D0}: LONGINT;
  32.          Seconds{R.D1}: LONGINT;
  33.          Micros{R.D2}: LONGINT): BOOLEAN;
  34. PROCEDURE SerWriteData* {HBBSNodeBase, -8AH} (data{R.A0}: e.STRPTR; length{R.D0}: LONGINT);
  35. PROCEDURE SerWriteStrWithTimeout* {HBBSNodeBase, -90H}
  36.         (data{R.A0}: e.STRPTR;
  37.          Seconds{R.D0}: LONGINT;
  38.          Micros{R.D1}: LONGINT): BOOLEAN;
  39. PROCEDURE SerWriteStr* {HBBSNodeBase, -96H} (str{R.A0}: e.STRPTR);
  40. PROCEDURE SerWriteChar* {HBBSNodeBase, -9CH} (c{R.D0}: CHAR);
  41. PROCEDURE PutText* {HBBSNodeBase, -0A2H} (str{R.A0}: e.STRPTR);
  42. PROCEDURE PutData* {HBBSNodeBase, -0A8H} (data{R.A0}: e.STRPTR; Length{R.D0}: LONGINT);
  43. PROCEDURE PutChar* {HBBSNodeBase, -0AEH} (ch{R.D0}: CHAR);
  44. PROCEDURE PutConText* {HBBSNodeBase, -0B4H} (str{R.A0}: e.STRPTR);
  45. PROCEDURE PutConData* {HBBSNodeBase, -0BAH} (data{R.A0}: e.STRPTR; Length{R.D0}:LONGINT);
  46. PROCEDURE PutConChar* {HBBSNodeBase, -0C0H} (ch{R.D0}: CHAR);
  47. PROCEDURE SetupConSerSigs* {HBBSNodeBase, -0C6H} (): LONGINT;
  48. PROCEDURE HandleConSigs* {HBBSNodeBase, -0CCH} (ReturnedSigs{R.D0}: LONGINT): LONGINT;
  49. PROCEDURE HandleSerSigs* {HBBSNodeBase, -0D2H} (ReturnedSigs{R.D0}: LONGINT): LONGINT;
  50. PROCEDURE HandleConSerSigs* {HBBSNodeBase, -0D8H} (ReturnedSigs{R.D0}: LONGINT): LONGINT;
  51. PROCEDURE DOORSysopText* {HBBSNodeBase, -0DEH} (str{R.A0}: e.STRPTR);
  52. PROCEDURE DOORWriteText* {HBBSNodeBase, -0E4H} (str{R.A0}: e.STRPTR);
  53. PROCEDURE DOORWriteSerText* {HBBSNodeBase, -0EAH} (str{R.A0}: e.STRPTR);
  54. PROCEDURE DOORGetLine* {HBBSNodeBase, -0F0H}
  55.         (Flags{R.D0}: LONGINT;
  56.          PasswordChar{R.D1}: CHAR;
  57.          MaxLen{R.D2}: LONGINT;
  58.          Timeout{R.D3}: LONGINT;
  59.          PromptStr{R.A0}: e.STRPTR): LONGINT;
  60. PROCEDURE DOORUpdateNodeStatus* {HBBSNodeBase, -0F6H} (What{R.D0}: LONGINT);
  61. PROCEDURE DOORSystemDoor* {HBBSNodeBase, -0FCH}
  62.         (doorname{R.A0}: e.STRPTR; options{R.A1}: e.STRPTR): e.LONGBOOL;
  63. PROCEDURE DOORUserDoor* {HBBSNodeBase, -102H}
  64.         (doorname{R.A0}: e.STRPTR; options{R.A1}: e.STRPTR): e.LONGBOOL;
  65. PROCEDURE DOORHangUp* {HBBSNodeBase, -108H};
  66. PROCEDURE DOORReturn* {HBBSNodeBase, -10EH} (returnString{R.A0}: e.STRPTR);
  67. PROCEDURE DOORDisplayScreen* {HBBSNodeBase, -114H}
  68.         (screenName{R.A0}: e.STRPTR): e.LONGBOOL;
  69. PROCEDURE DOORDisplaySpecialScreen* {HBBSNodeBase, -11AH}
  70.         (screenName{R.A0}: e.STRPTR): e.LONGBOOL;
  71. PROCEDURE DOORPausePrompt* {HBBSNodeBase, -120H} (prompt{R.A0}: e.STRPTR): e.LONGBOOL;
  72. PROCEDURE DOORAddLastUpload* {HBBSNodeBase, -126H} (details{R.A0}: e.STRPTR): e.LONGBOOL;
  73. PROCEDURE DOORContinuePrompt* {HBBSNodeBase, -12CH}
  74.         (prompt{R.A0}: e.STRPTR; Flags{R.D0}: LONGINT): e.LONGBOOL;
  75. PROCEDURE DOORMenuPrompt* {HBBSNodeBase, -132H}
  76.         (promptStr{R.A0}: e.STRPTR; promptDefault{R.D0}: CHAR);
  77. PROCEDURE DOORContinue* {HBBSNodeBase, -138H} (Continue{R.D0}: e.LONGBOOL);
  78. PROCEDURE ValidConfNum* {HBBSNodeBase, -13EH} (ConfNum{R.D0}: LONGINT): e.LONGBOOL;
  79. PROCEDURE FindConf* {HBBSNodeBase, -144H} ():bs.ConfDataPtr;
  80. PROCEDURE LoadAccess* {HBBSNodeBase, -14AH}
  81.         (filename{R.A0}: e.STRPTR; AD{R.A1}: bs.AccessDataPtr);
  82. PROCEDURE HBBSModifyString* {HBBSNodeBase, -150H} (str{R.A0}: e.STRPTR): e.STRPTR;
  83. PROCEDURE HBBSSetAccess* {HBBSNodeBase, -156H};
  84. PROCEDURE HBBSCheckAccess* {HBBSNodeBase, -15CH} (AccessOption{R.D0}: LONGINT): e.LONGBOOL;
  85. PROCEDURE HBBSAddToCallersLog* {HBBSNodeBase, -162H} (String{R.A0}: e.STRPTR);
  86. PROCEDURE HBBSFindTag* {HBBSNodeBase, -168H}
  87.         (FileName{R.A0}: e.STRPTR; MatchAll{R.D0}: BOOLEAN): bs.TaggedFilePtr;
  88. PROCEDURE HBBSSetBBSCols* {HBBSNodeBase, -16EH};
  89. PROCEDURE HBBSLoadConfAcs* {HBBSNodeBase, -174H} (ConfAcs{R.A0}: bs.ConfAcsDataPtr; filename{R.A1}: e.STRPTR): e.LONGBOOL;
  90. PROCEDURE DOORCheckRaw* {HBBSNodeBase, -17AH} (Flags{R.D0}: LONGINT): e.LONGBOOL;
  91. PROCEDURE HBBSTimeOnline* {HBBSNodeBase, -180H} (): LONGINT;
  92. PROCEDURE HBBSTimeLeft* {HBBSNodeBase, -186H} (): LONGINT;
  93. PROCEDURE DOORGoodBye*  {HBBSNodeBase, -18CH};
  94.  
  95. BEGIN
  96.     HBBSNodeBase:= e.OpenLibrary(LibraryName, 0);
  97. CLOSE
  98.     IF HBBSNodeBase # NIL THEN e.CloseLibrary(HBBSNodeBase) END;
  99. END HBBSNode.
  100.  
  101.